;redcode-94
;name	F6
;author	Flox

PS	FOR	0
这个是一个Paper程序
复制自己来存活
	ROF

WTIM	EQU	20
SIZE	EQU	18

	ORG	STRT

UP	ADD.A	#7,		MOVE	;复制错误更正
	JMP	STRT,		0

DIMP	MOV	UP-1,		UP-2	;DatImp,也用于定位
	SUB	#11,		DIMP
	JMP	DIMP,		0

STRT	SPL	DIMP,		0

WAIT	SPL	@CORE,		0	;等待
	DJN.A	0,		DATE
	ADD.A	#WTIM*2,	DATE

RTRN	MOV.B	DIMP,		CORE	;数据处理
	ADD	#999,		CORE
MOVE	MOV	CORE-1,		@CORE	;复制程序
	SUB.A	#1,		MOVE
	SUB	#1,		CORE
	DJN	MOVE,		DATE
	ADD	#SIZE+1,	DATE
	ADD.A	#SIZE+1,	MOVE
	JMP	WAIT,		>CORE

DATE	DAT	WTIM,		SIZE+1
CORE